home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LImacSTACK-8⁄89.cpt / LImacSTACK.8_89 / background_7348.txt < prev    next >
Text File  |  1989-08-04  |  4KB  |  212 lines
  1. -- background: 7348 from stack: in.8_89
  2. -- bmap block id: 8434
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: HC News Bg
  6. ----- HyperTalk script -----
  7. on closebackground
  8.   show bg btn 5
  9.   show bg btn 4
  10. end closebackground
  11.  
  12. on closeCard
  13.   show bg btn 5
  14.   show bg btn 4
  15. end closeCard
  16.  
  17.  
  18.  
  19.  
  20. -- part 6 (button)
  21. -- low flags: 00
  22. -- high flags: 0000
  23. -- rect: left=288 top=306 right=341 bottom=312
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 6721 / 6721
  26. -- text alignment: 1
  27. -- font id: 0
  28. -- text size: 12
  29. -- style flags: 0
  30. -- line height: 16
  31. -- part name: Return
  32. ----- HyperTalk script -----
  33. on mouseUp
  34.   visual iris close to grey
  35.   visual iris open
  36.   pop cd
  37. end mouseUp
  38.  
  39.  
  40.  
  41. -- part 7 (field)
  42. -- low flags: 01
  43. -- high flags: 2000
  44. -- rect: left=21 top=32 right=71 bottom=487
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 3328
  51. -- line height: 16
  52. -- part name: Title
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   visual iris close to grey
  56.   visual iris open
  57.   pop cd
  58. end mouseUp
  59.  
  60.  
  61.  
  62. -- part 8 (field)
  63. -- low flags: 01
  64. -- high flags: 2000
  65. -- rect: left=163 top=79 right=304 bottom=497
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 0
  69. -- font id: 3
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 24
  73. -- part name: Outline
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   go next cd in this bg
  77. end mouseUp
  78.  
  79.  
  80. -- part 15 (button)
  81. -- low flags: 00
  82. -- high flags: 0000
  83. -- rect: left=213 top=306 right=341 bottom=237
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 4465 / 4465
  86. -- text alignment: 1
  87. -- font id: 3
  88. -- text size: 9
  89. -- style flags: 0
  90. -- line height: 12
  91. -- part name: Index
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   push cd
  95.   visual barn door close to black
  96.   visual barn door open
  97.   go cd "LImacSTACK Index"
  98. end mouseUp
  99.  
  100.  
  101.  
  102. -- part 16 (field)
  103. -- low flags: 81
  104. -- high flags: 2004
  105. -- rect: left=134 top=63 right=288 bottom=447
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 0
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: Explanation
  114. ----- HyperTalk script -----
  115. on MouseUp
  116.   hide me
  117.   go to cd "fe exp1"
  118. end mouseUp
  119.  
  120.  
  121. -- part 19 (field)
  122. -- low flags: 80
  123. -- high flags: 2004
  124. -- rect: left=150 top=79 right=304 bottom=463
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 0
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: Explanation
  133. ----- HyperTalk script -----
  134. on MouseUp
  135.   hide me
  136. end mouseUp
  137.  
  138.  
  139. -- part 41 (button)
  140. -- low flags: 00
  141. -- high flags: 2000
  142. -- rect: left=482 top=301 right=322 bottom=510
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 20689 / 20689
  145. -- text alignment: 1
  146. -- font id: 3
  147. -- text size: 9
  148. -- style flags: 256
  149. -- line height: 12
  150. -- part name: New Button
  151. ----- HyperTalk script -----
  152. on mouseUp
  153.   play "hastalavista"
  154.   go stack "HOME"
  155. end mouseUp
  156.  
  157.  
  158.  
  159. -- part 45 (button)
  160. -- low flags: 00
  161. -- high flags: 0000
  162. -- rect: left=262 top=314 right=334 bottom=288
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 2749 / 2749
  165. -- text alignment: 1
  166. -- font id: 0
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: Multi-Next
  171. ----- HyperTalk script -----
  172. on mouseDown
  173.   visual  scroll left
  174.   go to next cd of this bg
  175.   put the ticks into tickHolder
  176.   repeat until (the mouse is up)
  177.     if (the ticks - tickHolder) > 30
  178.     then
  179.     go to next cd of this bg
  180.     put the ticks into tickHolder
  181.   end if
  182. end repeat
  183. end mouseDown
  184.  
  185.  
  186.  
  187. -- part 46 (button)
  188. -- low flags: 00
  189. -- high flags: 0000
  190. -- rect: left=237 top=314 right=334 bottom=262
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 25234 / 25234
  193. -- text alignment: 1
  194. -- font id: 0
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: Multi-Prev
  199. ----- HyperTalk script -----
  200. on mouseDown
  201.   go to prev cd of this bg
  202.   put the ticks into tickHolder
  203.   repeat until (the mouse is up)
  204.     if (the ticks - tickHolder) > 30
  205.     then
  206.     go to prev cd of this bg
  207.     put the ticks into tickHolder
  208.   end if
  209. end repeat
  210. end mouseDown
  211.  
  212.